home *** CD-ROM | disk | FTP | other *** search
/ Computer Shopper 125 / Computer Shopper CD-ROM Issue 125 (1998-07)(Dennis Publishing).iso / EuroPhys / Database / Electric / Topic2 / Script / ID670.Scn < prev    next >
Encoding:
Text File  |  1997-11-13  |  2.5 KB  |  108 lines

  1. ╧    '<><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><>
  2. '<> Orginal author:Neil
  3. '<> Date created:Tuesday, Jul 15 1997
  4. '<> File name:database\electric\topic2\script\ID670.Scn
  5. '<><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><>
  6. '<> Author of last modification:
  7. '<> Date of last Modification:
  8. '<><<>><<>><<>><<>><<>><<>><<>><<>><<>><<>><>
  9.  
  10.  
  11.  
  12. @AtGraphic 233,42
  13. @VirtualCircuit True,8,0,0,0,0,0,0,1.5,1.5,0,1.5,0,1,3,False,False,False,True,True,5,8,5,5,10,0,0,0,5,5,5,16,5,0,1.5,0,0,0,0,0,0,0,0,0,1.5,0,0,0,0,0,0,0,0,0,0,0,0,7.5,0,0,7.5,0,0,0,15,0
  14. @circuit replaceWire
  15. @circuit moveon
  16. @At 128,197
  17.  
  18.  
  19.  
  20. @At 135,220
  21. Current is measured in amps, #bA#b.
  22.  
  23.  
  24. @AtGraphic 201,13
  25. @createAnimate flow1,elec1,1,7,450,true,true
  26. @AtGraphic 229,181
  27. @createAnimate flow2,elec4,1,7,450,true
  28. @AtGraphic 229,13
  29. @createAnimate flow3,elec2,1,7,450,true
  30. @AtGraphic 425,13
  31. @createAnimate flow4,elec3,1,7,450,true
  32.  
  33. @startANimate flow1,true
  34. @startANimate flow2,true
  35. @startANimate flow3,true
  36. @startANimate flow4,true
  37. @animateTime flow1,450
  38. @xanimateTime flow2,450
  39. @xanimateTime flow3,450
  40. @xanimateTime flow4,450
  41.  
  42.  
  43. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  44. @disable forward
  45. @PlaySoundFile Abb10a01.wav
  46. @Wait 2
  47. @Animation FranklinGetGlasses,FranklinMoveGlasses,FranklinLeaveGlasses
  48. @Wait 2
  49.  
  50. @Animation FranklinLightning
  51. @Wait 2
  52. @at 135,255
  53. Small currents are measures 
  54. in milliamps, #bmA#b = 1/1000 A.
  55.  
  56.  
  57. @Waitforsoundtofinish
  58. @PlaySoundFile Abb10a02.wav
  59. @At 135,315
  60. #cr#bClick and drag another cell 
  61. #crinto the circuit and see what 
  62. #crhappens.
  63. '@Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  64. @At 378,216
  65. @ToolBox True 
  66.  
  67.  
  68.  
  69.  
  70.  
  71.  
  72.  
  73.  
  74.  
  75.  
  76. @disable forward
  77. @prompt
  78. '@enable forward
  79. @Erase 120,311,244,53
  80. @animateTime flow1,100
  81. @xanimateTime flow2,100
  82. @xanimateTime flow3,100
  83. @xanimateTime flow4,100
  84.  
  85. @ToolBox false
  86. @At 135,311
  87. Current is the rate of flow of charge.
  88. @AtGraphic 479,163
  89. @picture mtm10ac.bmp
  90. @PlaySoundFile Abb10a03.wav
  91.  
  92. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  93. @Wait 1
  94. @Animation FranklinGetGlasses,FranklinMoveGlasses,FranklinLeaveGlasses
  95. @Wait 1
  96. @Animation FranklinLightning
  97. @Wait 0.5
  98. @Animation FranklinLightning
  99. @Wait 2
  100. @Animation FranklinRaiseKey,FranklinWaveKey,FranklinWaveKey,FranklinWaveKey,FranklinLowerKey
  101.  
  102.  
  103. @Waitforsoundtofinish
  104. @Enable Forward
  105. @At 365,370
  106. #b#crClick on Forward to move on...ard
  107. @At 365,370
  108. #b#crClick on Forward to move on..